﻿Public Class frmSoLuongMonAn
    Public dg As String
    Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click
        Dim item As New ListViewItem(lbTenMonAn.Text)
        item.SubItems.Add(txtSoLuong.Text)
        item.SubItems.Add(dg)
        frmQuanLyThuNgan.lstTTSanPham.Items.Add(item)
        frmQuanLyThuNgan.TongTien()
        Close()
    End Sub
End Class